home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / Ex_Pi.dxr / 00015.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  685 b   |  22 lines
  1. on enterFrame
  2.   global rad, r, s
  3.   set r to random(400)
  4.   set Deg to random(360)
  5.   set the floatPrecision to 5
  6.   set rad to float(float(Deg) * PI / 180.0)
  7.   set the floatPrecision to 3
  8.   put r into field "R"
  9.   put rad into field "Radian"
  10.   put field "Radian" * field "R" into field "S"
  11.   set s to field "S"
  12.   put " " into field "Answer"
  13.   set the textSize of field "Answer" to 32
  14.   set the textSize of field "S" to 32
  15.   set the textSize of field "R" to 32
  16.   set the textSize of field "Radian" to 32
  17.   set the textStyle of field "Answer" to "bold"
  18.   set the textStyle of field "S" to "bold"
  19.   set the textStyle of field "R" to "bold"
  20.   set the textStyle of field "Radian" to "bold"
  21. end
  22.